home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1995 November / Macworld Nov ’95.toast / Developers / Selection ƒ 2.5 / nullSelect < prev    next >
Encoding:
Text File  |  1994-11-06  |  988 b   |  58 lines  |  [TEXT/MSET]
  1.  \ 28Oct94 dbh deleted general reference
  2.  
  3. (*
  4. A nullSelect object will accept all of the standard protocol messages for
  5. the currentSel in a SelWindow. If we always subclass from nullselect then we
  6. are assured of not forgetting to define one of the required messages, even if
  7. we don't use it.
  8. *)
  9.  
  10.  
  11. :CLASS nullSelect super{ object }
  12.  
  13. \ we always pass the window pointer, whether it is needed or not, for consistency
  14. :m new: ( wptr -- ) drop ;m
  15. :m release: ;m
  16.  
  17. :m activate: ;m
  18. :m deactivate: ;m
  19.  
  20. :m idle: initCursor ;m    
  21. :m draw: ;m
  22. :m key: ( char -- ) drop ;m
  23.  
  24. :m hit?: ( -- f )  false ;m
  25. :m alwaysActive?:  ( -- b) true ;m
  26. :m focus?:  ( -- b) false ;m
  27. :m click: ;m
  28.  
  29. :m cut: ;m
  30. :m copy: ;m
  31. :m paste: ;m
  32. :m clear: ;m
  33.  
  34. ;CLASS
  35.  
  36.  
  37.  
  38. nullSelect tnullSelect    \ our standard nullSelect object
  39.  
  40.  
  41. endload
  42.  
  43. *** EXAMPLE USE
  44.  
  45. :class testSelect super{ nullSelect }
  46.  
  47. :m draw:    \ over ride the draw: method
  48.     40 40 moveTo
  49.     " I am a testSelect" mDrawString ;m
  50. ;class
  51.  
  52. selwindow w
  53. test: w 
  54.  
  55. testSelect t
  56. t add: w
  57.  
  58.